D_remoteupload.asp 落叶冰点万能企业网站内容管理系统 V9.1 - ASP源码程序

www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_remoteupload.asp
    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>

<%

dir_set="../"


%>





<!--#include file=../inc/conn.asp-->

<!--#include file=inc/checkadmin1.asp-->


<!--#include file=../inc/ND_class_function.asp-->

<!--#include file="D_class_remote_upload_files.asp"-->


<%



Server.ScriptTimeout = 99999


call UploadRemote()

'-- 自动获取远程文件
Sub UploadRemote()

sUploadDir="../uploadfile/image/"
        
	Dim strContent, i,objFile
	strUploadDir = CreatePath(sUploadDir)
	sUploadDir = sUploadDir & strUploadDir
	For i = 1 To Request("content_UploadText").Count 
		strContent = strContent & Request("content_UploadText")(i) 
	Next

	If sAllowExt <> "" Then
		Set objFile = New remote_upload_files
		objFile.RemoteDir = sUploadDir
		objFile.AllowMaxSize = nAllowSize
		objFile.AllowExtName = sAllowExt
		strContent = objFile.ChangeRemote(strContent)
		sOriginalFileName = objFile.RemoteFileName
		sSaveFileName = objFile.LocalFileName
		sPathFileName = objFile.LocalFilePath
		SaveFilePath = sPathFileName
	End If

	Response.Write "<html><head><title>远程上传</title><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""/></head><body>" & _
		"<input type=""hidden"" id=""UploadText"" value=""" & inHTML(strContent) & """/>" & _
		"</body></html>"

	Call OutScriptNoBack("try{parent.addUploadFile('" & sOriginalFileName & "', '" & sSaveFileName & "', '" & SaveFilePath & "');} catch(e){}")
	Set objFile = Nothing
End Sub



Function inHTML(str)
	Dim sTemp
	sTemp = str
	inHTML = ""
	If IsNull(sTemp) = True Then
		Exit Function
	End If
	sTemp = Replace(sTemp, "&", "&amp;")
	sTemp = Replace(sTemp, "<", "&lt;")
	sTemp = Replace(sTemp, ">", "&gt;")
	sTemp = Replace(sTemp, Chr(34), "&quot;")
	inHTML = sTemp
End Function

Public Sub OutScriptNoBack(str)
	Response.Write "<script type=""text/javascript"">" & vbCrLf
	Response.Write "setUploadok2();" & vbCrLf
	Response.Write str & vbCrLf
	Response.Write "function setUploadok2() {" & vbCrLf
	Response.Write "	try{" & vbCrLf
	Response.Write "		var strHTML = UploadText.value;" & vbCrLf
	Response.Write "		parent.updatefck(strHTML);" & vbCrLf
	Response.Write "	}" & vbCrLf
	Response.Write "	catch(e){}" & vbCrLf
	Response.Write "	setTimeout('parent.remoteUploadok();',1000);" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "</script>" & vbCrLf
End Sub

%>